530 X = XC +15 *HFLAG: HCOLOR= C1(1):R1 = R -8 *HFLAG: IF S(1) >.52 THEN R1 = R -3 *HFLAG:X = XC +12 *HFLAG: IF S(1) >1 THEN R1 = R:XC = XC +9 *HFLAG
535 REM ABOVE DISPLACES SLICE 1 IF HIGHLIGHTED
540 FOR ANGLE = S(0) TO S(1) STEP INC: HPLOT X,YC TO X +R1 * COS(ANGLE),YC -R1 * SIN(ANGLE) *FACT
550 NEXT ANGLE: RETURN
697 :
698 REM INPUT DATA
699 :
700 VTAB 1: PRINT CK$;"PIE CHART DATA ENTRY"
710 PRINT "========="
720 VTAB 4: PRINT CF$;CS$;"HOW MANY SLICES IN PIE ": PRINT : INPUT " (MAXIMUM 10)? ";A$:A = VAL(A$): IF A <1 OR A >10 OR INT(A) < >(A) THEN PRINT G$;G$;: GOTO 720
730 PRINT : PRINT CS$"ENTER DATA (POSITIVE NUMBER OR PERCENT) FOR EACH SLICE": PRINT